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Appendix A 

void MusicAspectlntegrator :: Compute (void) { 

5 

Value = 0; 

if (Values [STRUM_DENSITY] > 64) { /* strumming too fast */ 
Value - -MAX_CHOOSER__VALUE; /* considered very bad */ 
10 } else if (Values [MELODY_PRESENT] ) { /* must accompany singer */ 

/* pick the most polyphonic (strummed chords, etc.) */ 
Value += Values [POLYPHONY] * (MAX_CHOOSER_VALUE/10 ) ; 

15 /* two strums per second. */ 

#define FAVORITE_STRUM_DENSITY 16 

/* make value smaller if strum speed is off optimum */ 
if (Values [STRUM_DENSITY] > FAVORITE_STRUM_DENSITY ) { 
20 Value = Value * FAVOR IT E_STRUM__DENSITY / Values [STRUM__DENSITY] ; 

} else { 

Value = Value * Values [STRUMJDENSITY] / FAVORITE_STRUM_DENSITY; 

} 

2 5 } else { /* no singer. Give lead/melodic parts higher values */ 

Value - 100; 

if (Values [STRUM_DENSITY] > FAVORITE_STRUM_DENSITY) { 

3 0 Value = Value * FAVORITE_STRUM_DENSITY / Values [STRUM__DENSITY] ; 

} else { 

Value = Value * Values [STRUM_DENSITY] / FAVORITE_STRUM_DENSITY; 

} 

3 5 if (Values [ AVE RAGE__P ITCH] < 45) { 

Value = 0; /* pitch too low for lead. */ 
} else { 

/* pick the most "interesting" */ 
Value += ABS (Values [PITCH ACCELERATION] ) /8; 



40 



45 



/* emphasize loud parts */ 

Value = Value * (100 + Values [LOUDNESS] ) / 100; 

} 
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Appendix B 



class MTRcEventNode *MTRcDerivative : : GiveEventNode (void) { 

if (FirstTime) { 

FirstTime = FALSE; 

Nodel = SourceFilt->GiveEventNode ( ) ; 



/* be tolerant of bad input. Input must have at least one 

measurement. But if not, we will still do what is right.*/ 
/* we MUST return a measurement at time zero. Make it zero. */ 
if (! Nodel) return new MTRcEventNode (0 , 0) ; 

15 } 

if (INodel) return NULL; /* done */ 

/* if we have a Nodel, we will return a measurement. */ 
2 0 MTRcEventNode *node2 = SourceFilt->GiveEventNode ( ) ; 

slong nodeval; 

if (node2) { /* the measurement will be a function of both nodes */ 
2 5 slong vdelta; 

vdelta = node2->GiveValue ( ) - Nodel->GiveValue ( ) ; 

slong tdelta = node2->GiveTicks ( ) - Nodel->GiveTicks ( ) ; 

30 

if (tdelta) { 

nodeval - vdelta * 16 * Globallnput File->GiveDivision ( ) / tdelta 
} else { 

nodeval = 0; 

35 } 

} else { 

nodeval = 0; /* zero, since we don't have two nodes. */ 

} 

4 0 MTRcEventNode *retval - new MTRcEventNode (Nodel->GiveTicks () , nodeval) 

delete Nodel; 
Nodel = node2; 

4 5 return retval; 
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